home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / gnoom.com / GNLOADER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-11-14  |  980 b   |  30 lines
  1. unit Gnoom;
  2. interface
  3. uses Graph;
  4. type GnType=array[1..10] of pointer;
  5. procedure GnoomImage(filename:string; var GnIm:GnType; var GnSprNum:byte);
  6. implementation
  7. procedure GnoomImage(filename:string; var GnIm:GnType; var GnSprNum:byte);
  8.   var GnCol,GnRow,GnX,GnY,GnI:byte;
  9.       GnFile:text;
  10.       GnChar:char;
  11.       GnPal:PaletteType;
  12.   begin
  13.   ClearDevice; GetPalette(GnPal);
  14.   for GnI:=0 to 15 do SetPalette(GnI,0);
  15.   Assign(gnfile,filename+'.gnm');
  16.   Reset(gnfile);
  17.   Read(gnfile,GnChar);GnSprNum:=ord(GnChar);
  18.   Read(gnfile,GnChar);GnCol:=ord(GnChar);
  19.   Read(gnfile,GnChar);GnRow:=ord(GnChar);
  20.   for GnI:=1 to GnSprNum do
  21.   for GnY:=0 to GnRow-1 do
  22.   for GnX:=0 to GnCol-1 do
  23.   begin Read(gnfile,GnChar);
  24.   PutPixel(gni*64-64+gnx,gny,ord(gnchar)); end;
  25.   for GnI:=1 to GnSprNum do
  26.   begin GetMem(GnIm[gni],Imagesize(1,1,GnCol,GnRow));
  27.   GetImage(gni*64-64,0,gni*64+gncol-65,gnrow-1,GnIm[gni]^);end;
  28.   ClearDevice;SetAllPalette(GnPal);
  29.   end;
  30. end.